
Sub Initialize()
	Dim itemName  As String
	itemName = "fldArchiveReaders"
	
	Dim docCfg As NotesDocument'配置文档
	Dim docTo As NotesDocument'操作文档
	Dim nm As NotesName
	Dim item As NotesItem
	
	Set item = docTo.Getfirstitem(itemName)
	
	ForAll s In docCfg.fldArchiveReaders
		Set nm = New NotesName(s)
		
		If item Is nothing Then
			Call docTo.Appenditemvalue(itemName, nm.Common)

			Set item = docTo.Getfirstitem(itemName)
			If Not item.Isauthors And Not item.Isreaders Then
				'item.Isreaders = true
			End If
		Else
			Call item.Appendtotextlist(nm.Common)
		End If
		
		
		
	End ForAll
	
	
	Call docTo.save(True,False)
	
End Sub